home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / tutor / pumps.arj / TYPEPUMP.TXT < prev    next >
Text File  |  1993-11-11  |  4KB  |  90 lines
  1. \MOVE 'TYPE' TO CURRENT_TOPIC\MOVE 270 TO LASTY_WHERE
  2. \CALL SET_STANDARD_ONKEYS\MOVE 23 TO TUBE_COLORS\JUMP TAG13000
  3. \X OPEN_SCRN\ON KEY PG_UP\ON KEY PG_DN JUMP GOSUB5\X TAG13000\IF CURR_PG>13990 OR CURR_PG<13000\MOVE 13000 TO CURR_PG\ENDIF
  4. \MOVE 13100 TO CURR_PG
  5. \MOVE 40 TO Q\MOVE 220 TO R\MOVE 680 TO S\MOVE 654 TO T\MOVE 12 TO U\CALLM TUBE_BOX
  6. \MOVE 1 TO MODULE_TWO
  7. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  8. \LOC 40,220\WID 640 DOT\OVER 0,A,44,23
  9. \"
  10.         Rotary Pumps.
  11. \"
  12.         Reciprocating Pumps.
  13. \"
  14.         Volute Centrifugal Pumps.
  15. \"
  16.         Diffuser Centrifugal Pumps.
  17. \"
  18.         Turbine Pumps.
  19. \"
  20.         Propeller Pumps.
  21. \"
  22.         Some Unique Pumps.
  23. \"
  24. \LOC 120,220\WIDTH 30 DOTS
  25. \"
  26. 1.
  27. \"
  28. 2.
  29. \"
  30. 3.
  31. \"
  32. 4.
  33. \"
  34. 5.
  35. \"
  36. 6.
  37. \"
  38. 7.
  39. \"
  40. \MOVE 'ASCOLOGO' TO PIC_FLNM\CALLM RD_PIC
  41. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  42. \LOC 340,684\OVER 1,A,57,23\WIDTH 240 DOTS
  43.  Choose one...
  44. \IF DEMO_MODE='YES'
  45. \MOVE 750 TO Q\MOVE 300 TO R\MOVE 990 TO S\MOVE 416 TO T\MOVE 9 TO U\CALLM TUBE_BOX\LOCATE 750,300\OVER 1,A,60,23
  46. (These options are not available in this demo.)
  47. \ENDIF
  48. \CALLM WAITBOX
  49. \MOUSE FRAME=0,3 W=67,270,67,622 A=0,1 L=47,LASTY_WHERE R=-1\MOVE E TO CURR_SUBLEVEL\MOVE CURR_SUBLEVEL TO LASTY_WHERE
  50. \X GOSUB5\CALLM WAITOFF
  51. \IF CURR_SUBLEVEL<300\MOVE 'TYP_CENT' TO TEXT_FLNM\ELSE
  52. \IF CURR_SUBLEVEL<358\MOVE 'TYP_ROTA' TO TEXT_FLNM\ELSE
  53. \IF CURR_SUBLEVEL<416\MOVE 'TYP_RECI' TO TEXT_FLNM\ELSE
  54. \IF CURR_SUBLEVEL<474\MOVE 'TYP_FORC' TO TEXT_FLNM\ELSE
  55. \IF CURR_SUBLEVEL<532\MOVE 'TYP_SUCT' TO TEXT_FLNM\ELSE
  56. \MOVE 'TYP_SEAL' TO TEXT_FLNM\ENDIF
  57. \MOVE 40 TO Q\MOVE 170 TO R\MOVE 590 TO S\MOVE 680 TO T\MOVE 12 TO U\LINE Q,R,S,T,23,BF\CALLM NEW_TUBE_BOX
  58. \IF DEMO_MODE='YES'\CALLM DEMO_MSG\JUMP MAINPAGE\ENDIF
  59. \CALLM RD_TXT\JUMP MAINPAGE
  60. \X  MAINPAGE\CALLM WAITOFF\MOVE 'PUMPMENU' TO TEXT_FLNM\CALLM RD_TXT
  61. \X ALT_QUITED\ON ERROR\END
  62. \X SET_STANDARD_ONKEYS\ON KEY F10 JUMP MAINPAGE\ON KEY 4096 JUMP ALT_QUITED\ON KEY F5 JUMP GLOSSARY\CALLM SET_ERROR_ONKEYS\RETURN
  63. \X CLEAR_ONKEYS\CLEAR ON KEYS\CALL SET_STANDARD_ONKEYS\RETURN
  64. \X GLOSSARY\MOVE 'GLOSSARY' TO TEXT_FLNM\CALLM RD_TXT
  65. \"
  66. \MOVE "IMPDIFF3" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT1
  67. \ROUNDS 5 SPEED 1\SHOW 80,40,1,9\X NEXT1\ON KEY 7181
  68. \MOVE "GEARPUMP" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT2
  69. \ROUNDS 18 SPEED 1\SHOW 680,370,1,12\X NEXT2\ON KEY 7181
  70. \MOVE "IMPELDBL" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT3
  71. \ROUNDS 8 SPEED 1\SHOW 32,490,1,18\X NEXT3\ON KEY 7181
  72. \MOVE "DIAPHRAM" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT4
  73. \ROUNDS 9 SPEED 1\SHOW 790,580,1,-1\X NEXT4\ON KEY 7181
  74. \MOVE "VANEPUMP" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT5
  75. \ROUNDS 3 SPEED 1\SHOW 360,510,1,-1\X NEXT5\ON KEY 7181
  76. \MOVE "SIMPLEX" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT6
  77. \ROUNDS 3 SPEED 1\SHOW 680,40,1,-1\X NEXT6\ON KEY 7181\LINE 0,0,SCREEN_DOT_WIDTH,SCREEN_DOT_HEIGHT,1,BF
  78. \MOVE "LIFTDISK" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT7
  79. \ROUNDS 6 SPEED 1\SHOW 40,40,1,-1\X NEXT7\ON KEY 7181
  80. \MOVE "CAMROTAR" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT8
  81. \ROUNDS 6 SPEED 1\SHOW 80,560,1,-1\X NEXT8\ON KEY 7181
  82. \MOVE "DBLFORCE" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT9
  83. \ROUNDS 3 SPEED 1\SHOW 590,500,1,-1\X NEXT9\ON KEY 7181
  84. \MOVE "FULLLIFT" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT10
  85. \ROUNDS 5 SPEED 1\SHOW 290,220,1,-1\X NEXT10\ON KEY 7181
  86. \MOVE "PISTDAP6" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT11
  87. \ROUNDS 5 SPEED 1\SHOW 710,260,1,16\X NEXT11\ON KEY 7181
  88. \MOVE "ARCHIMED" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT12
  89. \ROUNDS -1 SPEED 1\SHOW 330,0,1,-1\X NEXT12\ON KEY 7181
  90.